Справочное руководство по TDMS 6.0 API
VB Script
Смотри также Послать замечания

Исходный текст

'======================================================================
'Узнать количество папок в почтовом ящике текущего пользователя
Dim TestMailRoot, TestUser
Set TestUser = ThisApplication.CurrentUser
Set TestMailRoot = ThisApplication.UserMailRoot(TestUser)
MsgBox "Количество папок в почтовом ящике текущего пользователя:" & TestMailRoot.SubFolders.Count 
'======================================================================